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THE CALCOMP 
1627 II PLOTTER 



PART I 



THE CALCOMP 1627 II PLOTTER 

A CALCOMP 1627 II drum plotter with a 30-inch paper width 
is attached to the CDC 3300. To permit more efficient use of 
the plotter, five plot subroutines are in the OS-3 Fortran 
Library. There are three types of subroutines. The types and 
their names are: 

Type Subroutine 

Axis Definition AXISXY, SAXES 

Pen Movement PLOTXY, RESET 

Labeling LABEL 

Since the plotter can only move in eight directions in 
increments of 0.01 inch, the output is buffered to increase 
efficiency. 

As a rule, it is not a good idea to retrace plots. The 
algorithm used to determine which direction to go may be out of 

phase on the way back and give a double line. 

7 
The plotter is equipped by a gEQUIP, (lun) = PLOT where (lun) 

is the logical unit number. 

When finished plotting, a call to AXISXY (or SAXES, if it 
was used to define the axes) with LUN = 0, empties the buffer and 
performs the necessary housekeeping to terminate a plot. This, 
used only once, is the last call for every program. 

In plotting from the teletypewriter, LUN may be equipped as a 
file, i.e., #EQUIP,LUN = FILE. Plotter information will be stored 
on this file which may be released if data is found to be in error. 
The file is plotted by #EQUIP, no. = PLOT and #COPY, I = LUN,0 = no 



TERMS 

(lun) : Logical unit number of the output device. 

Used for LUN and in EQUIP statement. 

Tick mark: A mark on an axis to indicate minor and major 

intervals. They are marked during axis plotting 
as a function of AXISXY. 

Logical unit: A unit interval which represents the data to 

be graphed. For example, a 20 inch axis may- 
be divided into 200 logical units from -100 
to +100, 2 logical units from to +2, or as 
required to plot the graph. The units need 
not be the same for both axes. 



Origin: 



The point where the X and Y axes cross, usually 

but not necessarily (0,0), in terms of logical 

units. Other examples are: 

X = 1960, Y = $1 million 
X = -10 , Y = 35 
X = 163 , Y = 



i 
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Figure 1 
Illustrations of Plotting Parameters 



4. 
I. AXIS DEFINITION (AXISXY, SAXES) 

This function defines the axes and in the case of AXISXY, 

draws and marks major and/or minor intervals on them. 

Form : 

IF (AXISXY (LUN,LX,LY,XTIC, XL, YL,XLOW,YLOW,XORG,YORG,YTIC,NNT))n,m 

Where "n" and "m" are statement labels. The function 
branches to "n" if the parameter list is legal and to "m" if one 
or more parameters are illegal, which will result in a diagnostic 
The programmer should then terminate the last plot with a call to 
AXISXY (or SAXES) with LUN = 0. The IF statement may also be 

no £i/^ ac! a ■l-Viv««r!4/:!i t.t=>tt Trwntn/^l-k -i-P >^/-«/->-i-^r^y^ CJ7V VC C? it t-> .r^i~> A-T^y^ ^ -^-rrtj-^ 

parameter list, but does not draw the axes and tick marks. 

PARAMETERS TYPE 

LUN (I) The logical unit number for the 

output device, which must have been 
previously defined in a 8EQUIP state- 
ment, for either the plotter or 
magnetic tape . 
Examples: ?EQUIP,01 = PLOT 

?EQUIP,31 = MT, 6437 

with write ring. 

Length of X-Axis in inches (1-27). 

Length of Y-Axis in inches (1-200). 

Interval between tick marks on the 
X-Axis in logical units. 

Length of X-Axis in logical units . 

Length of Y-Axis in logical units. 



LX 


(I) 


LY 


(I) 


XTIC 


(F.P.) 


XL 


(F.P.) 


YL 


(F.P.) 
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PARAMETERS TYPE 



XLOW 



YLOW 



(F.P.) 



(F.P.) 



XORG 


(F.P.) 


YORG 


(F.P.) 


YTIC 


(F.P.) 



NNT 



(I) 



Lowest value on the X-Axis (may be 

iiSy ci L-x vc ; xii -njyx^^cix uiixus. 

Lowest value on the Y-Axis (may be 
negative) in logical units. 

X-Axis origin in logical units. 

Y-Axis origin in logical units. 

Optional . Interval between tick marks 
on the Y-Axis in logical units. 

Optional , Number of small tick intervals 
within each large tick interval. (Small 
for both axes.) 



II. PEN MOVEMENT (PLOTXY, RESET) 

PLOTXY: This function moves the pen from its present position 
to the set of coordinates specified in the call. 

Form: 

IF (PLOTXY (X,Y, IPOS, IMARK) )n,m 

Where "n" is the branch for legal parameters and "m" is 
the branch for illegal parameters as in AXISXY. 

or CALL PLOTXY (X,Y, IPOS, IMARK) 

A call for movement to new coordinates outside the 
boundaries as defined by AXISXY will result in diagnostics. 
One-half inch and three-fourths inch borders are 
provided for labeling purposes to the left of XLOW and below 
YLOW, respectively. However, when the Y value is too high, 
the "upper limit" value replaces the value in the call so that 



the pen will not go beyond the upper limit. The same is 
true of the right-hand limit. Therefore, the programmer 
should terminate plotting when the values go beyond these 
limits. 



PARAMETERS 



TYPE 



X 


(F.P.) 


Y 


(F.P.) 


IPOS 


(I) 



IMARK 



(I) 



The new X-coordinate in logical units 
The new Y-coordinate in logical units 

Pen position during movement. 

= pen up (off of paper between 
points; use for plotting points or 

movina Df=^T1 -f-n 1 ;:qh<::i1 -i nrr T->*-^ <= i -I- n ^m^ \ 

~ - - -=--^ ^ __^^^ J-'W^^ V--I.Wii/ / 

1 = pen down (on paper between points; 
draws a connecting line between suc- 
cessive coordinates). 

Data mark (if any) . Values 1-32 
generate marks, other values do not. 
Odd numbers define small marks (2-4 
0.01 inch increments long), marks de- 
fined by even numbers correspond to 
marks defined by odd numbers, but are 
twice as large. 



NUMBER 

1-2 
3-4 
5-6 
7-8 
9-10 
11-12 



DATA MARKS 

up arrow, datum at the point, 
right arrow, datum at the point, 
down arrow, datum at the point, 
left arrow, datum at the point, 
vertical cross, datum at its center 
X within a box, datum at its center 



MARK 
\ 

+ 

Ix; 
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NUMBER 



DATA MARK MARK 

X 



L 



13-14 hourglass dot, datum at lower left 
corner. 

15-16 diagonal cross, datum at the center. 

17-18 vertical caret, datum at the point. 

19-20 horizontal caret, datum at the point. 

21-22 right angle, L orientation, datum at 

point. 

23-24 same, turned 180 degrees, datum at point. 1 

25-26 tee, on its side, datum at intersection. i- 

27-28 tee, datum at intersection. T 

29-30 vertical bar, datum, at its center. ' 

31-32 horizontal bar, datum at its center. 



There are numerous methods of plotting a graph. Generally, 
however, the X value is incremented and the corresponding Y 
value is either calculated or read in from an array where it 
was previously stored. It should be remembered that the 
plotter can increment a minimum of 0.01 inches. 

RESET: This function can be used to move the pen in the + 
or - Y direction. 

Form : 

CALL RESET (ISPACES ,LUN) 

The primary use for the RESET function is to reset the 
pen for labeling the plot below the boundaries. Since the 
function redefines the axes such that the point to which it 
is moved becomes (0,0), it should be used with care, normally 
after plotting is completed. 



PARAMETERS 



I SPACES 



TYPE 
(I) 



LUN 



(I) 



The number of 0.01 inch increments 
to move in the Y-direction. 
Positive is for plus Y, negative 
for minus Y directions. 

Logical unit number. 



III. LABELING (LABEL) 

LABEL : This function may be used to draw alphanumeric 
characters and symbols on the plotter. It is the responsi- 
bility of the programmer to position the pen for each label 
and make sure that the label will fit on the plotting surface 
Labels are not restricted by the right hand axis boundary, 
but by the paper width. When this limit is reached, the pen 
returns to the label's starting X-position, one line down, 

and continues labeling. The data must be read into an array. 

Since it must be in BCD, an ENCODE may be necessary (See 

sample program) . 

Form : 

CALL LABEL(INUM,ISIZE,IDIR,IARRAY(I)) 



PARAMETERS 



INUM 



TYPE 



(I) 



The integer number of characters 

to be plotted by that call, including 

spaces . 
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ISIZE (I) Size of characters to be plotted, 

1-10. Size 1 is approximately 
1/12 inch square, others are 
appropriate multiples of this size. 

-j-j-)jj^ (I) Direction of character line. 

= +X, 1 = -Y, 2 = -X, 3 = +Y 
(other values undefined) e.g., this 
line is in the +X direction for 
normal axes. 

lARRAY(I)* Starting word address of the data 

to be plotted, i.e., the label (s). 



TYPE* depends on tne type or -cne array useu. 

This function is used both for labeling the axes and the 
plot, i.e., information about the plot such as the function 
it represents, the scale used, date, name, etc. The function 
must be reset for each new label position. 

IV. DIAGNOSTICS 

The programmer should terminate plotting for illegal 
parameters, which will cause diagnostics. It is often 
helpful to print values when they are illegal. 

AXISXY: AXSXY ERROR XX PLOT N, E.P. YYYYY, ZZZZZZZZ 
XX = Parameter in error. 

00 = LUN 

01 = LX (NOTE: there is no 03) 

02 = LY 
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04 = XL 

05 = YL 

06 = XORG 

07 = YORG 

LUN error terminates job with undefined logical unit 

XLOW and YLOW give PLOTXY error messages. 

XTIC, YTIC, and NNT give no messages, but prevent 
plotting. 

N = Plot number. 

YYYYY = Octal location from which AXISXY was called. 

ZZZZZZZZ = Octal representation of illegal parameter 
(upper 24 bits if floating point) . 

PLOTXY : PLTXY ERROR XX PLOT N, E.P. YYYYY, ZZZZZZZZ 

XX = Error number. 1 = X parameter too high 

2 = X parameter too low 

3 = Y parameter too high 

4 = Y parameter too low 

N = Plot number. 

YYYYY = Octal location from which PLOTXY was called. 

ZZZZZZZZ = Octal representation of upper 24 bits of 
illegal floating point parameter. 

RESET: (Reset errors are essentially irrecoverable) . 

RESET ERR X 

The logical unit specified is illegal 

X = 1, not within range 1-49. 

X = 2, unit has not been assigned. 

X = 3, unit is not plotter or magnetic tape. 

X = 4, actual equipment differs from last call. 
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V. COMMENTS 

The plot or series of plots may be labeled with a "gLABEL, 
(lun) /information", control card following the statement which 
equips the plotter = lun. "Information" may be any alpha- 
num.eric information, commas, and periods, such as SAVE FOR 
DEAN, PROG PLOT. The LABEL subroutine, as described above, also 
includes symbols. 

It is often advantageous to print out values used in the 
above subroutines, especially during the debugging stage. 

Many parts of a plot may be handled in subroutines. An 
extensive set of subroutines has been written to handle items 
such as axes labeling, multiple plots, log scales, outlines, 
keys, etc. 

In addition, plots may be turned at 90 degree angles to 
allow a longer X axis. Plotting and labeling must be accounted 
for accordingly. Two plots may be located side by side only 
when the second is plotted with respect to the originally 
defined axes, or by turning the axes 90 degrees and plotting 
one above the other. The second graph to be plotted will 
appear above the first. Therefore, one should consider which 
direction, clockwise or counter-clockwise, to rotate the axes 
for appropriate positioning. 
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VI. SAMPLE PROGRAM 
PROGRAM SAMPLE 
DIMENSION lARRAY(lO) 
READ(60,1)LUN,LX,LY,XTIC,XL,YL,XLOW,YLOX,XORG,YORG,YTIC 

1 F0RJ^4AT(3I2,8F5.1) 

IF(AXISXY(LUN,LX,LY,XTIC,XL,YL,XLOW,YLOW,XORG,YORG,YTIC))4,13 

4 READ(60,7) (lARRAY (I) , 1=1 , 10) 
X=XLOW 
DO 100 1=1,5 
CALL PLOTXY(X,-.2,0,0) 
v=x+XTIC 

ENCODE (4 , 6,LIST) lARRAY (I) 
6 FORMAT (14) 
100 CALL LABEL (4, 1,0, LIST) 
Y=YLOW 
DO 2001=6,10 
CALL PLOTXY(-.4,Y,0,0) 
Y=Y+YTIC 

ENCODE(4,6,LIST)IARRAY(I) 
200 CALL LABEL (4, 1,0, LIST) 
IP0S=1 
X=XLOW 

DO 300 1=1,50 
Y=X**2 
CALL PL0TXY(X,Y,IP0S,1) 



13 



300 X=X+.l 

IF (AXISXY (0,0,0,0,0,0,0,0,0,0,0))13,13 

13 CALL EXIT 
7 FORMAT (514) 
END 



PART II 



ABSTRACTS OF 
READY-MADE 
PLOT PROGRAMS 
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PART II 

ABSTRACTS OF READY-MADE PLOT PROGRAMS 

CONTENTS (Subroutines) EM£ 

17 



AXPLTF 

AXPLTI 

CENTAR 

ENCLOSE 

GRAPHIC 

GRID - 

GRIDMARK 

KEYl 

KEY 2 

LABELS 

LABELX 

LABELY 

LOGl 

L0G2 

LOGS 

MLTIPLT 

NAME 

OUTLINE 

SCALEPLT 



1 n 

J- 1 

18 

19 

21 

23 

25 

26 

26 

28 

29 

30 

31 

33 

35 

37 

40 

41 

42 



This section provides an abstract of subroutines which are 
on Public File. These have been written to aid the programmer in 
plotting. The programmer need only provide the values called for 
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in the parameter list and call the subroutine, which then does 
the plotting, labeling, etc. 

Comments : 

These routines are on public file and may be equipped 

as follows : 



[EQUIP, 1 = *name 



(NOTE: Asterisk denoting public 
file. ) 



PROGRAM 



77 
88 






RUN 



DATA (if any) 



/MnfTTr-. nih^ nublic file Droaram 
or subroutine is loaded, 
too. ) 



Routine 



MLTIPLT 

LOGl 

LOG 2 

LOGS 

LABELX , LABELY , LABELS , 
OUTLINE, GRID, KEY1,KEY2 

GRAPH ICCENTAR 

AXPLTI , AXPLTF , SCALEPLT , 
NAME , ENCLOSE , GRIDMARK 



Equip and Load 

*MLTIPLT 
*PLTRTNS 

*L0G1 
*PLTRTNS 

*L0G2 
*PLTRTNS 

*L0G3 
*PLTRTNS 

*PLTRTNS** 

*GRAPHIC** 
*PLTSUBS** 



** 



Routines may be loaded individually or in any combination 
after they are equipped. (See following page.) 
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To load part of a public file subroutine package, use the 
following sequence of commands (for remote users only) : 

1. #EQUIP,2=*name 

2. #EQUIP,3=FILE 

3. #EQUIP,4=FILE 

4. #*REMOVE,I=2,R=3,0=4 

5. List names of routines you want one per line (C^ (l^ 

6. *0S 

7. # REWIND, 3 
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Subroutine AXPLTF, AXPLTI 



T> ■» T -U— ir-v <r^ r-^ /-\ • 



Writes a label at specified tick marks on the dependent and 
independent axes. AXPLTF writes a floating point label according 
to F4.1. AXPLTI writes an 14 integer label. 



Usage 



CALL AXPLTF (LX,LY,PDATA) 

This subroutine requires no common storage. 



Description of parameters: 
LX,LY 

PDATA(l) thru PDATA(13) 
PDATA(14) 

Example : 



Physical size of plot. 

Same parameters as used in GRAPHIC p. 21. 

Multiple of tick marks to label. 

If it is equal to 1 the subroutine 
writes at every tick mark. If it 
is equal to 2 it writes at every 
other tick mark. 

PDATA Dimensioned as PDATA(20). 



Remarks: Subroutines AXPLTF and AXPLTI were written by J. A, 
Baughman in Fortran IV (CDC 3300) . 
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Subroutine CENTAR 

Purpose: 

Strips off leading BCD blanks from first N characters of 
character array CI and stores in C2 . Returns NU, the number of 
characters found from first non-blank character to last. Maximum 
size of character array is 96. 

Usage: 

CALL CENTAR (CI, C2,N,NU) 

In one call CI may be same variable as C2 , i.e. 
CALL CENTAR (C, C, N, NU) . 



Remarks: Subroutine CENTAR was written by J. A. Baughman in 
Fortran IV (CDC 3300). 



19. 
Subroutine ENCLOSE 

Purpose : 

Subroutine ENCLOSE constructs a boundary around a plot. 

Usage: 

A call must be made to AXISXY prior to a call to ENCLOSE. 
ENCLOSE is the main and only entry point: CALL ENCLOSE (PDATA) 
PDATA must be dimensioned (10) . 



Description of parameters: (Same as for AXISXY) 



PDATA (1) 

PDATA ( 2 ) 

PDATA (3) 

PDATA (4) 

PDATA ( 5 ) 
PDATA (6) 
PDATA (7) 

PDATA ( 8 ) 



must equal 
in logical 

must equal 
in logical 

must equal 
in logical 

must equal 
in logical 

must equal 

must equal 

must equal 
tick marks 

must equal 
tick marks 



XL - the length of the X axis 
units . 

YL - the length of the Y axis 
units . 

XLOW - initial point on X axis 
units . 

YLOW - initial point on Y axis 
units. 

XORG - X axis origin. 

YORG - Y axis origin. 

XTIC - the interval between 
on the X axis in logical units 

YTIC - the interval between 
on the Y axis in logical units 



Remarks : 

Subroutine ENCLOSE was written by J. A. Baughman in Fortran 
IV (CDC 3300). A call must be made to AXISXY or SAXES prior to 



20. 
a call to ENCLOSE. The method consists of successive calls to 
PLOTXY. When the operation is completed the message "graph 
enclosed" will be typed out. 

PDATA must be dimensioned. 



21. 
Subroutine GRAPHIC 

Purpose: 

Draws N curves on a plot and labels the dependent and 
independent axis with alphanumeric information and writes a 
graph title at a user specified location. 

Usage: 

CALL GRAPHIC (X,Y,L,N,LX,LY,PDATA). 

This call is made on the first and only call to Graphic, 

CALL DUPLOT(X,Y,L,N,LX,LY,PDATA) . 

This call is used for additional curves to be drawn. 
Duplet is second entry point to Graphic. 

Description of parameters: 

X independent variable, 
dimensioned X(N) . 

Y dependent variable, 
dimensioned Y(N). 

L dimensioned asL(60). ,.■.-, 

If L(l) = program will not draw graph title. 
If L(21) = program will not draw X axis title. 
If L(41) = program will not draw Y axis title. 
L(2), L(3) = X, Y position of graph title. 
L(4), L(20) = Graph title. 
L(24), L(40) = X axis title. 
L(44), L(60) = Y axis title. 
Titles contain alphanumeric information. 

N Number of data points. 

LX,LY Physical size of the plot as described in Part I, p. 4 
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PDATA 



Dimensioned as PDATA (20) contains parameters 
necessary to plot as described in Part I, p. 4. 



PDATA (1 
PDATA (2 
PDATA ( 3 
PDATA (4 
PDATA (5 
PDATA ( 6 
PDATA ( 7 
PDATA (8 
PDATA (9 



= XL 
= YL 
= XLOW 
= YLOW 
= XORG 
= YORG 
= XTIC 
= YTIC 
= NNT 



PDATA (10) = IDUP 

PDATA (11) = IMARK 

PDATA (12) = ISIZE 

PDATA (13) = IPEN 



This parameter must be zero on 
last or only call to Graphic. 



Remarks : 






This subroutine terminates 



plotting after five PLOTXY errors have been made and returns 
control to the calling program. The X and Y values in error are 
printed out on LUN61. GRAPHIC plots on LUN16. Subroutine 
GRAPHIC was written by J. A. Baughman in Fortran IV (CDC 3300). 
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Subroutine GRID 

Purpose: 

To plot a line grid on the plotting surface of horizontal 

lines, vertical lines or both. 

Usage: 

CALL GRID(ID,XLOW,YLOW,XHIGH,YHIGH,XMARK,YMARK,XPOINT, 

YPOINT , AFACT , BFACT , XORG , YORG) 

Description of parameters: 

ID Identification factors: 

ID(1) = number of curves to be plotted. 

ID (2) = number of points for curve. 

ID (3) = key choice for multiple graphs. 

= for no key. 

= 1 for key. 
ID (4) = IPOS (from PLOTXY) for plot*. 

= pen up. 

= 1 pen down. 
ID (5) = IMARK(from PLOTXY)*. 

= 1 to 32. 
ID (6) = grid choice 

= for no grid. 

= 1 for grid. 
ID (7) = grid lines 

= for no lines. 

= 1 for horizontal lines. 

= 2 for vertical lines. 

= 3 for both. 
ID (8) = graph type* 

= 1, XLOW 7^ XORG, YLOW 7^ YORG + 

= 2, XLOW = XORG, YLOW = YORG L 

= 3, XLOW = XORG, YLOW f YORG H 

= 4, XLOW 7^ XORG, YLOW = YORG J- 



*See description of library routines and their parameters. Part I, 
pp. 4-5. 
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XLOW 

YLOW 

XHIGH 

YHIGH 

XMARK 

YMARK 

XPOINT 

YPOINT 

AFACT 

BFACT 

XORG 

YORG 



Low X-axis value in logical units. 
Low Y-axis value in logical units. 



High X-axis vciJLue caxc 






XLOW. 



High Y-axis value calculated by YL + YLOW. 

An array of points along the X-axis at which 
vertical lines may be drawn. 

An array of points along the Y-axis at which 
horizontal lines may be drawn. 

The X-coordinate for the bottom of a key, 
equals XHIGH if no key is specified. Calculated 
by XHIGH-30/12.*AFACT. 

The Y-coordinate for the left margin of a key, 
equals YHIGH if no key is specified. Calculated 
by YHIGH- (4+ID (1) )*.15*BFACT. 

A conversion factor from logical units to inches 
for X-axis, calculated by XL/LX. 

Same for Y-axis, calculated by YL/LY. 

X-axis origin in logical units. 

Y-axis origin in logical units. 



Remarks : 

The XMARK array may be generated for linear scales by in- 
crementing XLOW by XTIC or some other value, ATIC. Similarly 
the YMARK array may be generated for linear scales by incre- 
menting YLOW by YTIC or some other value, BTIC. These arrays 
must terminate with values equal to or greater than their 
respective XHIGH and YHIGH values. For examples of use see 
MLTIPLT and LOGl in Part III. Written by CD. Pielstick. 



Siibroutines required: 
None. 



25. 
Subroutine GRIDMARK 

Purpose : 

Subroutine GRIDMARK places gridmarks on a plot in the 

first quadrant. 

Usage : 

PDATA must be dimension (20) . A call must be made to 
AXISXY, or SAXES prior to the call to GRIDMARK. Gridmark is the 
main and only entry point: CALL GRIDMARK (TING, FINC, PDATA). 



Description of parameters: 

TING the increment for the X-axis (time) gridmarks. 

FINC the increment for the Y-axis (function) 
gridmarks . 

PDATA (1) must equal the length of the X-axis in logical 
units (XL) . 

PDATA (2) must equal the length of the Y-axis in logical 
units (YL) . 

PDATA (5) must equal the X-axis origin (XORG) . 

PDATA (6) must equal the Y-axis origin (YORG) . 



Remarks : 

Subroutine GRIDMARK was written by J. A. Baughman in 
Fortran IV (CDC 3300). The method consists of successive calls 
to PLOTXY. The boundary is made first and contains gridmarks, 
then the gridmarks are made in the first quadrant. After the 
operation is completed the pen is returned to the origin. 
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Subroutines KEYl and KEY2 



To plot a key in the upper right-hand corner of a graph of 
multiple plots indicating the data mark used, the X-axis scale 
factor, and the Y-axis scale factor. They are arranged in order 
of plotting. KEYl plots the headings, and KEY2 plots the data 
marks and scale factors (in F5.2 format) . 

Usage: 

CALL KEYl (AFACT , BFACT , ARRAYl , ARRAY2 , XHIGH , YKIGH ) 
CALL KEY2 (AFACT, BFACT, ID (5) , J,XHIGH, YHIGH ,XSF , YSF) 



Description of parameters 
AFACT 



BFACT 
XHIGH 
YHIGH 
ID(5) 
J 



XSF 



YSF 



A conversion factor from logical units to inches 
for X-axis, calculated by XL/LX. 

Same for Y-axis, calculated by YL/LY. 

High X-axis value, calculated by XL + XLOW. 

High Y-axis value, calculated by YL + YLOW. 

(See ID array from MLTIPLT p. 37) IMARK from PLOTXY 

A counter, equals 1 for first call. Subroutine 
increases J by one for each call. The value is 
used by the subroutine in determining the position 
for printing information in the key. J should 
never be changed outside the subroutine. 

Scale factor for X-axis such that XSF times one 
new logical unit = one old logical unit (= 1 for 
first plot) . 

Same for Y-axis (= 1 for first plot) . 
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ARRAYl An array containing "KEY FOR PLOTS." 

ARRAY2 An array containing "DATA MARK (6 spaces) XSF 
(6 spaces) YSF . " 



Remarks : 

An outline of the key may be plotted using XHIGH, YHIGH, 
XPOINT, and YPOINT. For examples of use see MLTIPLT and LOGl. 
The programmer should note that the parameter "J" is set equal 
to one on the first call, but is not changed externally. It 
is, however, increased by one for each call, e.g. J = 2 after 
first call; J = 3 after second call, etc. Subroutines KEYl and 

... !.__ ^ rN -ni ^-i ^4--i ^-[^ Tin ■Pz-.-r+'-ran TV fCDC 3300). 

KEY2 were wrirren oy k^.u. cj-^j.^^^-^^^^ — - — _. .- 



Subroutines required: 
None. 
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Subroutine LABELS 

Purpose: 

To label the X and Y axes and the plot as a whole with not 
more than 80 alphanumeric characters and/or symbols. 

Usage: 

CALL LABELS (XLOW,YLOW,XHIGH,YHIGH,AF ACT, BF ACT, IA,IDENT) . 

Description of parameters: 

See descriptions of OUTLINE, p. 41, for all except the 
following: 

lA An array in 60A4 format (must be dimensioned to 
60) with 1-20 containing 80 character positions 
for the Y-axis label, 21-40 containing 80 character 
positions for the X-axis label, and 41-60 con- 
taining 80 character positions for the plot label. 

IDENT An array (must be dimensioned to 3) containing 
the lengths, including blanks, of the above 3 
labels and in that order. 

Remarks : 

The "plot" label has character size (ISIZE) = 3. Therefore, 

the length of the label should be considered carefully. For 

examples of use see MLTIPLT and LOGl. Written by CD. Pielstick. 



Subroutines required: 
None. 
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Subroutine LABELX 

Purpose: 

To label the X-axis of any linear graph in F4.1 format 
according to specifications of the parameter list. 

Usage: 

CALL LABELX (XVALUE , XINCRMT , XSTART , XHIGH , ATIC , AFACT , BFACT , 

ID(8) , YORG) . 

Description of parameters: 

See abstract of MLTIPLT, p. 37 for all except the following: 

XHIGH The high X-axis value, calculated by XL + XLOW. 

AFACT A conversion factor from logical units to inches 
for X-axis, calculated by XL/LX. 

BFACT Same for Y-axis, calculated by YL/LY. 

Remarks : 

Care should be taken to space labels appropriately with 
ATIC. Since a maximum value of 99.9 can be plotted, the program- 
mer may label axis with appropriate fractions such as 1.0 or 10.0 
for 100.0. The change may be noted by labeling the axis appro- 
priately, i.e. X-axis - Units = 10* label value. (See LABELS). 
For examples of use, see MLTIPLT and LOGl. Written by CD. Pielstick 

Subroutines required: 
None. 
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Subroutine LABELY 

Purpose: 

To label the Y-axis of any linear graph in F4.1 format 
according to specifications of the parameter list. 

Usage: 

CALL LABELY ( YVALUE ,YINCRMT ,Y START , YHIGH , BTIC , AFACT , BFACT , 

ID (8) ,XORG) 

Description of parameters: 

See abstract of MLTIPLT, p, 37 for all except the following; 

YHIGH The high Y-axis value, calculated by YL + YLOW. 

AFACT A conversion factor from logical units to inches 
for X-axis, calculated by XL/LX. 

BFACT Same for Y-axis, calculated by YL/LY. 

Remarks : 

See LABELX. Labels are spaced with BTIC. For examples of 

use see MLTIPLT, page 37. Subroutine LABELY was written by CD. 

Pielstick in Fortran IV (CDC 3300) . 

Subroutines required: 
None. 
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.gnbrout -irip. LOGl 

Purpose : 

To plot one or more sets of data on one set of X-Y axes 
(Y values >0) with a common log scale Y-axis. The plot is 
labeled, outlined and includes GRID and KEY options. The first 
plot defines the axes and the units; others are scaled accord- 
ingly. 

Usage: 

CALL LOGl (XDATA,YDATA) 

This is the first call; defines and plots one graph. 
XDATA = array of independent variable coordinates 
YDATA = array of dependent variable coordinates 

CALL LOGA (XDATA, YDATA) 

This is the entry for each additional graph. 

COMMON . . . 

(See subroutine MLTIPLT for parameters and description, p. 37 
They are identical.) 

Remarks : 

The user must dimension XDATA and YDATA to the number of 
points to be plotted. Also, the user must terminate the plot 
unless AXISXY is in error. This allows the programmer to do 
extra labeling, for example, before the plot is terminated. Since 
YLOW = YORG for this log scale, ID (8) must = 2 or 4 , usually 2. 
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The AXISXY parameter list is printed on the line printer. 
Incorrect data values are also printed. Subroutine LOGl was 
written by CD. Pielstick in Fortran IV (CDC 3300). 

Subroutines required: 

LABELX, LABELS, OUTLINE, GRID, KEYl, KEY2 . 
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Subroutine LOG 2 

Purpose : 

To plot one or more sets of data on one set of X-Y axes 
(Y values >0) with a common log scale X-axis. The plot is 
labeled, outlined and includes grid and key options. The first 
plot defines the axes and the units; others are scaled accord- 
ingly. 

Usage : 

CALL LOG 2 (XDATA, YDATA) 

This is the first call; defines and plots one graph. 

XDATA = array of independent variable coordinates 
YDATA = array of dependent variable coordinates 

CALL LOGB (XDATA, YDATA) 

This is the entry for each additional graph. 

COMMON . . . 

(See subroutine MLTIPLT, p. 37 for parameters and 
description. They are identical.) 

Remarks : 

The user must dimension XDATA and YDATA to the number of 
points to be plotted. Also, the user must terminate the plot 
unless AXISXY is in error. This allows the programmer to do 
extra labeling, for example, before the plot is terminated. 
Since XLOW = XORG for this log scale, ID (8) must = 2 or 3, 
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usually 2. The AXISXY parameter list is printed on the line 
printer. Incorrect data values are also printed. Subroutine 
L0G2 was written by CD. Pielstick in Fortran IV (CDC 3300). 

Subroutines required: 

LABELY, LABELS, OUTLINE, GRID, KEYl , KEY2 . 
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Subroutine L0G3 

Purpose: 

To plot one or more sets of data on one set of X-Y axes 
(X and Y values >0) with common log scale axes. The plot is 
labeled, outlined and includes grid and key options. The first 
plot defines the axes and the units; others are scaled accord- 
ingly. 

Usage: 

CALL LOGS (XDATA,YDATA) 

This is the first call; defines and plots one graph. 

XDATA = array of independent variable coordinates 
YDATA = array of dependent variable coordinates 

CALL LOGC (XDATA, YDATA) 

This is the entry for each additional graph. 

COMMON ID (8) ,NNT,LUN,LX,LY,XMIN,YMIN,XMAX,YMAX,XSF,YSF, 
IA(60) ,IDENT{3) 

(See subroutine MLTIPLT, p. 37 for parameters and 
description. They are identical. Note that this 
COMMON consists of the first 12 and last 6 para- 
meters in the MLTIPLT list.) 

Remarks : 

The user must dimension XDATA and YDATA to the number of 
points to be plotted. Also, the user must terminate the plot unless 
AXISXY is in error. This allows the programmer to do extra label- 
ing, for example, before the plot is terminated. Since XLOW = 
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XORG and YLOW = YORG for this subroutine ID (8) must = 2. The 
AXISXY parameter list is printed on the line printer as are 
incorrect data values. Subroutine LOGS was written by CD. 
Pielstick in Fortran IV (CDC 3300) . 

Subroutines required: 

LABELS, OUTLINE, GRID, KEYl , KEY2. 
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Subroutine MLTIPLT 

Purpose: 

To plot one or more sets of data on one set of X-Y axes 
with different scaling and with labeling and outline. Includes 
GRID and KEY options. The first plot defines the axes and the 
units; others are scaled accordingly. 

Usage: 

CALL MLTIPLT (XDATA, YDATA) 

This is the first call; defines and plots one graph. 

XDATA = an array of independent variable coordinates 
YDATA = an array of dependent variable coordinates 

CALL GRAPH (XDATA, YDATA) 

This call is the entry for each additional graph. 
VARIABLES IN COMMON: 



COMMON ID ( 8 ) , NNT , LUN , LX , L Y ,|XL , YL , XLOW , YLOW , XORG , YORG , 
XTIC , YTIC , XVALUE , YVALUE , XINCRMT , YINCRMT , XSTART , YSTART , 
ATIC,BTIC,XMIN,YMIN,XMAX,YMAX,XSF_,YSF,IA(60) ,IDENT(3) 

or 

COMMON lARRAY (12), ARRAY (22), LABELS (63) 

where the three arrays correspond to 1) integer para- 
meters, 2) floating point parameters, and 3) the 
three labels and their corresponding lengths. 



Description of parameters: 

ID Identification factors: 

ID(1) = number of curves to be plotted. 
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NNT thru 
YTIC* 

XVALUE 

YVALUE 

XINCRMT 

YINCRMT 

XSTART 

YSTART 

ATIC 



BTIC 
XMIN 
YMIN 
XMAX 
YMAX 
XSF 

YSF 



ID (2) = number of points for curve. 

ID (3) = key choice for multiple graphs, 
= for no key. 
= 1 for key. 

ID (4) = IPOS (from PLOTXY) for plot.* 
= 2 for vertical lines. 
= 3 for both. 

ID ( 8 ) = graph type . * 

= 1, XLOW 7-^ XORG, YLOW f YORG + 
= 2, XLOW = XORG, YLOW = YORG |_ 
= 3, XLOW = XORG, YLOW f YORG , 
= 4, XLOW f XORG, YLOW = YORG _l 



Define axes and units. 

Starting value for labeling X-axis. 

Starting value for labeling Y-axis. 

Value to increment XVALUE between labels. 

Value to increment YVALUE between labels. 

Starting position for labeling X-axis in logical 
units. 

Starting position for labeling Y-axis in logical 
units. 

Logical units between first characters of two 
sequential labels on the X-axis, usually equals 
XTIC or XTIC * NNT (although this routine does 
not plot NNT) . 

Same for Y-axis. 

Minimum scaled X-value to be plotted. 

Minimum scaled Y-value to be plotted. 

Maximum scaled X-value to be plotted. 

Maximum scaled Y-value to be plotted. 

Scale factor for X-axis such that XSF times one 
new logical unit equals one old logical unit 
(= 1 for first plot) . 

Same for Y-axis (= 1 for first plot) . 



*See description of library routines and their parameters, see 
Part I. 
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IA{60) An array in 60A4 format with the Y-axis label 

in 1-20, the X-axis label in 21-40, and the plot 
label in 41-60. Thus each label has a maximum 
of 80 characters and/or symbols. 

IDENT(3) An array of the exact lengths of the above three 
labels, including blanks, which must be in that 
same order. 



Remarks : 

The user must dimension XDATA and YD ATA to the number of 
points to be plotted. Also, the user must terminate the plot 
unless AXISXY is in error. This allows the programmer to do 
extra labelin*^, for exam.ple, before the plot is terminated. The 
AXISXY parameter list is printed on the line printer. Incorrect 
data values are also printed. 

Usually XVALUE will equal XSTART and XINCRMT will equal 
ATIC as will also be the case for the corresponding Y-values - 
YVALUE and YSTART, YINCRMT and BTIC. Differences occur when 
the label values are scaled rather than actual values. Subroutine 
MLTIPLT was written by CD. Pielstick in Fortran IV (CDC 3300) . 

Subroutines required: 

LABELX, LABELY, LABELS, OUTLINE, GRID, KEYl , KEY2 . 
The subroutines are on public file. See pages 14, 15. 



40. 
Subroutine NAME 

Purpose : 

Subroutine NAME is a routine that sets up an axis (call 
to SAXES) for the specific purpose of labeling. 

Usage: 

NAME is the main and only entry point: CALL NAME (lun, 
list, n) . List must be dimensioned. NAME was written for a CDC 
3300, the language is Fortran IV. 

Description of parameters: 

LUN logical unit number that the plot is equipped to. 

LIST the label that will be placed on the plot. 

N integer number of characters to be plotted (n ^ 80) 

Remarks : 

Subroutine NAME was written by J. A. Baughman, (8-13-68). 
The method consists of subsequent calls to SAXES, PLOTXY, and 
LABEL. The subroutine may not be used within an AXISXY Plot. 
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Subroutine OUTLINE 

To outline the boundaries of a plot. 

Usage: 

CALL OUTLINE (ID (8) ,XLOW, YLOW,XHIGH ,YHIGH) . 

Description of parameters: 

ID ID(8) = graph type.* 

= 1, XLOW i^ XORG, YLOW f YORG -f- 

= 2, XLOW = XORG, YLOW = YORG {_ 

— 3 XLOW - XORGf YLOW ^^ YORG j— 

= 4' XLOW i^ XORg) YLOW = YORG _L 

XLOW Low X-axis value in logical units. 

YLOW Low Y-axis value in logical units. 

XHIGH The high X-axis value, calculated by XL + XLOW. 

YHIGH The high Y-axis value, calculated by YL + YLOW. 

Remarks : 

OUTLINE uses only ID (8). It contains no common or dimensioned 
variables. For example of use see MLTIPLT and LOGl. 

Subroutines required: 
None . 



*See description of library routines and their param.eters^ Part I, 
pp. 4-5. 
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Subroutine SCALEPLT 



Purpose: 

Calculates the range of the dependent or independent variables 
and evaluates the parameters needed for scaling the plot drawn 
by GRAPHIC or needed for a call to AXISXY. 

Usage: 

CALL SCALEPLT (Y,N ,LX,LY,PDATA) . 

Description of parameters: 

X Data values for X-coordinate variable dimensioning. 

Y Data values for Y-coordinate variable dimensioning 
specified by calling program. 

N Number of data values to be plotted. 

LX,LY Physical size of plot. 

PDATA As described for subroutine GRAPHIC returns values 
for PDATA(1)~PDATA(8) . 
PDATA Dimensioned by 20. 



Remarks : 

User must supply values for PDATA (9) — PDATA (13) before 
calling GRAPHIC. Subroutine SCALEPLT was written by J. A. 
Baughman in Fortran IV (CDC 3300) . 
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PART III 
SAMPLE CALLING PROGR?VMS WITH THE CURVES THEY CREATED 



' EQUIP, 2 = »"GRAPHIC 
' EQUIP, 3 = »'^PLTSUBS 
'EQUIP, I6=PL0T 
' FORTRAN, L,X 

PROGRAM TESTPLOT 
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100 
101 
200 
1 



10 



******************** 
TEST PROGRAM FOR GRAPHIC 
GRAPHIC CALLS SUBROUTINE 



AND AXPLTI 
CENTAR 



PDATA(l) 
PDATA(2) 
PDATA(3) 
PDATA(4) 
PDATA(5) 
PDATA(6) 



XL 

YL 

XLOW 

YLOW 

XORG 

YORG 



PDATA(7) = 
PDATACS) = 
PDATAO) = 
PDATA(10)= 
PDATA(11)= 
PDATA(12)= 
PDATA(15)= 
PDATA(14)= 



XTIC 

YTIC 

NNT 

IDUP 

IMARK 

ISIZE 

IPEN 

AMULT 



******************** 
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DIMENSION X(1000), Y(1000) 

DIMENSION LEGEND(60), PDATA(20) 

FORMAT(10E5.1) 

?0RWAI(I2,2I3,17A4,4X)^^___ .v.utocm ^v^^uamim t. /^F1«.9.^ 

STaHi:8XmL%X2HYL,6X4HXL^ 
1TIC,6X4HYTIC,6X4H NNT,/10F10 .2) 

HEAD IN PLOT INPUT DATA 
READ(S0,100) (PDATA(I),I=1,10) 
PDATA(ll) = 12. 
PDATA(12) = 2. 
PDATACIS) = 1. 
PDATA(14) =2. 
LX = 7 
LY = 10 

WRITE OUT PLOT INPUT DATA 
WRITE(61,1) (PDATA(I), I = 1,10) 
WRITE(61,200) CPDATA(I),I=11,14) 

READ IN GRAPH TITLE 

AND LABELS FOR X AND Y AXIS 
READ(60,101) (LEGENDCI),I=1,60) 
N= 100 

DO 10 I = 1,N 
X(I) = I 
X(I) = X(I)*.5 
Yd) = X(I)*X(I) - XCI)/5. 
CONTINUE 

PLOT FIRST CURVE 
CALL GRAPHIC(X,Y, LEGEND, N,LX,LY,PDATA) 
CALL AXPLTI(LX,LY,PDATA) 
DO 20 I = 1,N 
X(I) = I 
X(I) = XCI)*.2 

Yd) = (X(I)*Xd) - Xd)/5.)/2. 
CONTINUE 

SET NEW DATA MARK 



45 



PDATA(li) = 15. 
C PLOT SECOND CURVE 

CALL DUPLOT (X, Y, LEGEND, N,8 ,1 1 ,PDATA) 

PDATA(10) = 0. 

DO 30 I = 1,N 

A = X(I) 

Yd) = X(I)*(SIN(A))*SIN(A) 
30 CONTINUE 

PDATACU) = 2. 
C PLOT THIRD CURVE 

CALL DUPLOT (X, Y, LEGEND, N,8 ,1 1 ,PDATA) 

CALL AXISXY(0,LX,LY,XTIC,XL,XLOW,YLOW,XORG,YORG) 

^%H«^ --- 

'LOAD, 56, 2, 3 

MAP 

RUN 

25. 50. -2. -4. 0. 0. 1. 5. 1. 1. 

2 10 40 TEST PLOT FOR GRAPHIC-I 

1 X AXIS WITH INTEGER LABEL 

1 Y AXIS WITH INTEGER LABEL 

t t 

'LOGOFF 
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TEST PLQT P~QR GRAPHIC- "I 




X ftXJS UIJTH JNTE6E.R LABEL 
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PROGRAM TESTPLOT 



c 
c 


******************************************* 


c 
c 


TEST PROGRAM FOR 


GRAPHIC 


AND 


AXPLTF 


c 


DREW TEST PLOT FOR GRAPH- 


-B 




c 
c 


PDATA(l) = XL 






PDATA(7) = XTIC 


c 


PDATA(2) = YL 






PDATA(8) = YTIC 


c 


PDATA(3) = XLOW 






PDATAO) = NNT 


c 


PDATA(4) = YLOW 






PDATA(10)= IDUP 


c 


PDATA(5) = XORG 






PDATA(11)= IMARK 


G 


PDATA(6) = YORG 






PDATA(12)= ISIZE 










PDATA(15)= IPEf^ 


c 








PDATA(14)=AMULT 


c 
c 


************************ 


******************* 



DIMENSION X(1000), Y(1000) 
DIMENSION LEGEND(60), PDATA(20) 
C COMMON PLOT INPUT DATA 

COMMON/DATA/PDATA 

DATA((PDATA(I),I=l,14)=25.,50,,-2.,-4.,0.,0., 
ll.,l.,l.,l.,10.,5,,l.,2.) 
C WRITE OUT PLOT INPUT DATA 

WRITE(S1,1) (PDATACI), I " 1,10) 
WRITE(61,200) (PDATACI), 1=11, 14) 
200 FORMAT(1H-,5X5HIMARK,5X5HISIZE,6X4HIPEN,5X5HAMULT,/4F10,2) 
1 F0RMAT(1HI,8X2HXL,8X2HYL,SX4HXL0W,6X4HYL0W,6X4HX0R6,SX4HY0RG,6X4HX 

1TIC,6X4HYTIC,6X4H NNT,/10F10 .2) 
C READ IN GRAPH TITLE 

C AND LABELS FOR X AND Y AXIS 

READ(60,101) (LEGEND(I),I=1,60) 
101 F0RMATCI2,2I3,17A4,4X) 
LX = 7 
LY = 11 
N = 50 
DO 10 I = 1 ,N 

X(I) = I 

X(I) = X(I)*.5 

Yd) = X(I)*XCI) - X(I)/5, 

10 CONTINUE 

PLOT FIRST CURVE „^.x^^ 

CALL GRAPHIC(X,Y, LEGEND, N,LX,LY, PDA TA) 

CALL AXPLTF(LX,LY,PDATA) 

XLOW = PDATA(3) 
YLOW = PDATA(4) 



C 
C 
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XHIGH = PDATA(l) + XLOW 

YHIGH = PDATA(2) + YLOW 
C 

CALL OUTLINECl , XLOW, YLOW, XHI GH, YHIGH) 
C 
C SET NEW DATA MARK 

PDATACli) - 12, 

DO 20 I = 1,N 

X(I) = I 

XCI) ' X(I)*.2 

YCI) = (X(I)*X(I) - X(I)/5.)/2. 
20 CONTINUE 
C PLOT SECOND CURVE 

CALL DUPLOT (X,Y, LEGEND, N,LX,LY,PDATA) 

PDATA(10) = 0. 

DO 50 I = 1,N 

A = X(I) 

X(I) = X(I)*(SIN(A))*SIN(A) 

C SET NEW DATA MARK 
PDATACin = 2, 

C PLOT THIRD CURVE 

CALL DUPLOT CX,Y, LEGEND, N,LX,LY, PDA TA) 

CALL AXISXY(0,LX,LY,XTIC,XL,XLOW,YLOW,XORG,YORG) 

END 
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Px~>nr>n AhA TtToTDi rvT 

DIMENSION X(1000), YC1000) 
DIMENSION LEGEND(60), PDATA(20) 
DIMENSION LIST(2) 
C 

C THIS PROGRAM PLOTS GRAPHIC-C 

C 

C PDATA(1))=XL PDATA(7)=XTIC 

C PDATA(2)=YL PDATA(8) =YTIC 

C PDATA(5)=XL0W PDATA(9)=NNT 

C PDATA(4)=YL0W PDATA ( 10) =IDUP 

C PDATA(5)=X0RG PDATAC 1 1)=IMARK 

C PDATA(6)=Y0RG PDATAC 12)=ISIZE 

C PDATA(13)=IPEN 

C PDATA(14)=AMULT 

PDATA(10) = i. 

PDATA(ll) = 15. 

PDATAC 12) = 3. 

PDATA(13) =1. 

PDATA(14)=2. 
C WRITE OUT PLOT INPUT DATA 

WRITE(61,200) (PDATACI),I=11,14) 
200 FORMAT(1H-,5X5HIMARK,5X5HISIZE,6X4HIPEN,5X5HAMULT,/4F10.2) 

C READ IN GRAPH TITLE 

C AND LABELS FOR X AND Y AXIS 

READ(60,101) (LEGEND(I),I=1,60) 
101 F0RMATCI2,2I3,17A4,4X) 

LX = 7 

LY = 10 

LUN = 16 

NL=8 

LIST(l)=4HJ0 A 

LIST(2)=4HNN 

CALL NAME(LUN,LIST,NL) 

N=40 

DO 10 I = 1,N 

X(I) = I 

X(I) = X(I)*.5 

Yd) = (X(I)*X(I) - X(I))/5. 
10 CONTINUE 
C SCALE FOR PLOTTING 

CALL SCALEPLT(X,Y,N ,LX,LY, PDATA) 

C 

C PLOT FIRST CURVE 

CALL GRAPHIC(X,Y, LEGEND, N,LX,LY, PDATA) 

CALL AXPLTF(LX,LY, PDATA) 



CALL ENCLOSE(PDATA) 
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N = 50 

DO 20 I = 1,N 

A V X / — i 

X(I) = X(I)*.2 

Yd) = (X(I)*X(I) - X(I)/5.)/2. 
20 CONTINUE 
C SET NEW DATA MARK 

PDATA(ll) = 12. 
C PLOT SECOND CURVE 

CALL DUPLOT (X, Y, LEGEND, N, 8, 1 1 ,PDATA) 

DO 30 I = I, N 

A = X(I) 

X(I) = X(I)*(SIN(A))*SIN(A) 

30 CONTINUE 

PDATA(10) = 0. 
C SET NEW DATA MARK PDATAC 1 1 ) = 10. 

PDATA(11)=10. 
C PLOT THIRD CURVE 

CALL DUPLOT CX,Y,LEGEND,N,8,i i ,PDATA) 
T uorrtr r a o^ 

c 

2 FORMAT C1H-,19HEND OF GRAPHIC PLOT) 

CALL AXISXY(0.LX,LY,XTIC,XL,XLOW,YLOW,XORG,YORG) 

END 

FINIS 
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-t — -t f- -i + ^ — + 1 ^ — ^ 1 



63.0 



60.0 + 




,. G 2.0 4.0 6.0 8.0 JO.O J2.0 J4.0 16.0 J8.0 20.0 



L X fiXj5 SCALED AUTBMAT JCfiLLY BY SUBRBUTIHE 5CALEPLT 



DATA T«; SCALf;-^ 
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END TJF GPTAPH Xr PIVOT 
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' EQUIP, 2=*GRAPHIC 
' EQUIP, 3=*PLTSUBS 
' EQUIP, 16=PL0T 
' FORTRAN , L , X 

PROGRAM TESTPLQT 

DIMENSION X(i000), Y(1000) 

DIMENSION LEGEND(60), PDATA(20) 

DIMENSION LIST(2) 
C 

C THIS PROGRAM PLOTS 6RAPHIC-II 

C 

C PDATA(1))=XL PDATA(7)=XTIC 

C PDATA(2)=YL PDATA (8)=YTIC 

C PDATA(5)=XL0W PDATA(9)=NNT 

C PDATA(4)=YL0W PDATAC 10)=IDUP 

C PDATA(5)=X0RQ PDATAC 1 1 )=IMARK 

C PDATA(6)=Y0R6 PDATA ( 12)=ISIZE 

C PDATA(13)=IPEN 

C PDATA(14)=AMULT 

C READ IN INPUT DATA FOR PLOT 

READ(60,100) (PDATA(I),I=1,10) 

PDATA(ll) = 15. 

PDATA(12) = 3, 

PDATA(13) = 1. 

PDATA(i4)=2. 
C WRITE OUT PLOT INPUT DATA 

WRITE(61,i) (PDATA(I), I = 1,10) 

WRITE(61,200) (PDATACI),I=il,14) 

100 FORMAT(10E5.1) 

200 FORMAT (1H-,5X5HIMARK,5X5HI SIZE, 6X4HIPEN,5X5HAMULT,/4F10. 2) 
1 F0RMAT(1H1,8X2HXL,8X2HYL,6X4HXL0W,6X4HYL0W,6X4HX0RG,6X4HY0RG,6X4HX 

lTIC,v6X4HYTIC,6X4H NNT,/10F10.2) 
C READ IN GRAPH TITLE 

C AND LABELS FOR X AND Y AXIS 

READ(60,101) (LEGEND(I),I=1,60) 

101 F0RMAT(I2,2I3,17A4,4X) 
LX = 7 

LY = 10 
LUN = IS 
NL=8 

LIST(1)=4HJ0 A 
LIST(2)=4HNN 
CALL NAME(LUN,LIST,NL) 
N = 50 

DO 10 I = 1,N 
XCI) = I 
XCI) = X(I)*.5 

Yd) = (X(I)*X(I) - X(I))/5. 
10 CONTINUE 
C PLOT FIRST CURVE 

CALL GRAPHIC(X,Y, LEGEND, N,LX,LY, PDATA) 
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C 
C 



r«Ai I AvP! Tirn Y IV PnATA'i 

CALL ENCLOSE (PDA TA) 



DO 20 I = 1,N 

X(I) = I 

X(I) = X(I)*.2 

Yd) = (X(I)*X(I) - X(I)/5.)/2. 
20 CONTINUE 
C SET NEW DATA MARK 

PDATA(ll) = 12. 
C PLOT SECOND CURVE 

PDATA(10) = 0. 

CALL DUPLOT (X, Y, LEGEND, N, 8, 1 1 ,PDATA) 

3 WRITE(61,2) 

C 

2 F0RMATCiH-,!9HEND OF GRAPHIC PLOT) 

CALL AXISXY(0,LX,LY,XTIC,XL,XLOW,YLOW,XORG,YORG) 

END 

FINIS 
'LOAD, 56, 2, 3 
MAP 
RUN 
20. 60. -2. -4. 0. 0. 1. 1. 1. 1. 
2 1 40 TEST PLOT FOR GRAPHIC-II 
12 2 X AXIS 

1 2 2 Y AXIS 
I I 

' LOGOFF 
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ui 



■^.5.0 -- 

r-3.D -■ 

51 .0 -- 
<?.Q -- 
AP.D - 
<S.D -- 

43 D .. 

<; .0 -- 

3?.D - 
iP.C -- 
"35. Q -- 
33. u -■ 
3J .0 -- 
29. D - 
2?.0 -- 
25.0 -- 
23. D - 
2J .0 -- 
J9.0 -- 
17.0 -- 
iS.O ■■ 
13. G -- 
11 .0 -- 
?.D -- 
7.Q -- 

r>.Q -- 

3.D - 

J .0 -- 

-H S 

-0 
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10. D 12. D 



( 1 1 H 

M.D 16.0 
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X AXIS 



•EQUIP»2=*GRAPHIC 57 

•EQUIP»3=-«-PLTSUBS 

'EQUIP»16=PL0T 

•MFBLKS=400 

•TIMF=200 

•FORTRAN, L»X 

PROGRAM TE5TPL0T 
C THIS PROGRAM PLOTS GRAPHIC~D 

DIMENSION X(1000)9 Y(IOOO) 

DIMENSION LEGENDceO), PDATA(20) 

DIMENSION LIST(2) 
C 

r 

C PDATA(1))=XL PDATA(7}=XTIC 

C PDATA(2)=YL PDATA ( 8 ) =YT I C 

C PDATA(3)=XL0W PDATA(9)=NNT 

C PDATA(4)=YL0W PDAT A ( 10 ) = I DUP 

C PDATA(5)=X0RG PDATA ( 1 1 )= I MARK 

C PDATA(6)=Y0RG PDATA (12 ) = I S I ZE 

C PDATA( 13)=IPEN 

Q PDATA(14)=AMULT 

PDATA(IO) = 1. 
PDATA(ll) = 15. 
PDATA(12) = 3* 
PDATA(13) = 1. 
PDATA(1^)=2. 
C WRITE OUT PLOT INPUT DATA 

WRTTE(51>200) (PDATA{ I ) »I=11>14) 
200 F0RMAT{1H-,5X5HIMARK,5X5HISIZE,6X4HIPEN,5X5HAMULT,/4F1Q.2) 

C READ IN GRAPH TITLE 

C AND LABELS FOR X AND Y AXIS 

READ(60»101) (LEGENDC I ) ♦I=l>60) 
101 FORMAT( I2»2I3>17AA-,4X) 

LX = 7 

LY - 10 

LUN = 16 

NL = 8 

LiSTd )=4HJ0 A 

LIST(2)=^HNN 

CALL NAME(LUN,LIST,NL) 

N = 40 

DO 10 I = 1,N 

X(I ) = I 

X( I ) = X( I )^.5 

Y( I ) = (X( I )*X{ I ) - X( I ) )/5. 
10 CONTINUE 
C SCALE FOR PLOTTING 

CALL SCALEPLT(X,Y,N , LX , LY , PDATA ) 

C 

C PLOT FIRST CURVE 

CALL GRAPHIC(X,Y,LEGEND»N,LX,LY»PDATA) 

CALL AXPLTF(LX,LY, PDATA) 



CALL GRIDMARK(4. j^., PDATA) 

N= 60 

DO 2 I = 1»N 



20 



X(I) = I 

X(I) = xd )*.2 

Y( I ) = (X( I )*X( I ) - X{ I )/b* )/2. 

CONTINUE 

SET NEW DATA MARK 
PDATAdl) = 12. 

PLOT SECOND CURVE 
CALL DUPLOT ( X ♦¥, LEGEND » N , 8 » 1 1 jPDATA ) 

DO 3 I = 1 » N 

A = X( I ) 

X( I ) = X{ I )*(SIN(A) )*SIN( A) 

30 CONTINUE 

PDATA(IO) = 0. 

SET NEW DATA MARK PDATA ( 1 1 ) =10. 

PDATA(11)=10. 

PLOT THIRD CURVE 
CALL DUPLOT ( X , Y ,LEGEND , N , 8 » 1 1 >PDATA ) 

WRITE(61»2) 
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F0RMAT(1H-,19HEND OF GRAPHIC PLOT) 

CALL AXISXY{0,LX,LY,XTIC,XL,XLOW,YLOW,XORG,YORG) 

END 

FINIS 
»LOAD»56»2»3 

MAP 

RUN 

'"? ' 1 40 TEST PLOT FOR GRAPHIC-D 
12 2 X AXIS SCALED AUTOMATICALLY BY SUBROUTINE SCALEPLT 



1 2 ; 

i ! 

•LOGOFF 



Y AXIS AUTOMATICALLY SCALED 
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I 0- 2.0 4 6.0 B.O JO.O J2;0 J4.0 J6.0 J8,0 2D.D 



j X AXIS Sa;LtD AUTBMATJCrtLLY BY SUBRBUTINE ^'CrtLbPLT 
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•EQUIPfl^PLOT 

•LABEL»(1)/ SAVE FOR DEAN 

•EQUIP»2=*PLTRTNS 

»EQUIP«3-DATA 

»EQUIP»4=»MLTIPLT 

•EQUIP»5=*L0G1 

»FORTRAN.»L»X 

PROGRAM TEST 
C PLOTS 2 LINEAR GRAPHS AND 2_1-CYCL£ SEMI-LOGSCALE GRAPHS 

COMMON I ARRAY (12) •ARRAY (22) »LABtLS(63) 

DIMENSION XDATA(lOl) >YDATA(101) 

K = 
5 READ(3»1) <XDATA( I)»YDATA(I) ♦I = l»101) 

1 FORMAT(2F5.2) 

C EQUIP»3« YOUR FILE PRIOR TO EXECUTION 

DO 100 I=l»12 
100 IARRAY( I)=FFIN(60) 

DO 200 1=1*22 
200 ARRAY(I)=FFIN(60) 

READ 39(LABELS( I ) ♦I=l»60) 

3 FORMAT (20A4) 
00 300 I=6i»63 

300 LABELSC I)=FFIN(60) 
IF(K.EQ.1)G0 TO 4 
CALL L061(XDATA»YDATA) 
CALL UNEQUIP(3) 
CALL EQUIP(3»5HDATA2) 

READ (3 •I) (XDATA( I) •YDATA( I) .I=l»101) 
IARRAY(5)=21 
ARRAY(22)=»01 
CALL LOGA(XDATA»YDATA) 
C ENTRY POINT FOR SECOND GRAPH 

CALL AXISXY(0»0»0»0»0»0»0»0*0»0»0»0) 

CALL UNEQUIP(3) 

CALL EQUIP(3»5HDATA3) 

K = l 

GO TO 5 

4 CALL MLTIPLT(XDATA,YDATA) 
CALL UNEQUIP(3) 

CALL EQUIP{3»5HDATA4) 

REA0(3»1) (XDATA( I ) »YDATA( I) »I=1»101) 
IARRAY(5)*23 
ARRAY(22)=.0l 
CALL GRAPH(XDATA»YDATA) 
C ENTRY POINT FOR SECOND GRAPH 

IF(AXISXY(0»0»0»0*0»0»0»0»0»0»0»0) )2»2 

2 CALL EXIT 
END 

I t 
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«LOAD»56#2»4*5 

RUN 

2 101 11 11 132017 10 

100 100 100 5 10 1 100 10 100 10000 200 40000 1 1 

Y-AX IS 

X-AXIS - UNITS ARE 10 TIMES LISTED VALUES 

PLOT 1 - Y=X**2> PLOT 2 - Y=X 

6 41 29 

2 101 11 15 131017 10 

100 30000 100 10000 150 5000 5 1000 10 10 1 3 100 10000 10 3000 100 10000 

200 40000 11 

Y-AXIS - UNITS ARE 1000 TIMES LISTED VALUES 

X-AXIS - UNITS ARE 10 TIMES LISTED VALUES 

PLOT 1 - Y=X**2» PLOT 2 - Y=X 

43 41 29 
t t 

•LOGOFF 
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JO.D JJ.D J2.D J3.D J4.D JS.D J6.D J7.D 

X-AXJS - UNITS ARE JD TIMES LISTED UALUES 



J9.D 



Jf.D 



20. D 



PLST 1 - Y=X*^2, PLBT 2 - Y=X 
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PLBT 1 - Y=X^^2, PLST 2 - Y=X 
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• EQUIP tl-PLOT 

•LABEL»(1)/ SAVE FOR DEAN 

•EQUIP»2=*PLTRTNS 

♦EQUIPf3»DATA 

»EQUIP»4=*L061 

•FORTRAN»L»X 

PROGRAM TESTl 
C PLOTS A 4-CYCLE SEMI-LOGSCALE GRAPH 

COMMON IARRAY(12)»ARRAY(22) tLABELSCeS) 

DIMENSION XDATA(lOO) »YDATA(100) 

READt3»l){XDATA{I) »YDATA(I) »I==1»100) 

1 FORMATC2F5.2) 

C EQUIP»3= YOUR FILE PRIOR TO EXECUTION 

DO 100 I=l»12 
100 IARRAY(I)=FFINt60) 

DO 200 I=l»22 
200 ARRAY(n=FFIN(60) 

READ 3»(LABELS( I )»I=1»60) 
3 FORMAT (20A4) 

DO 300 I=61»63 
300 LABELS(I)=FFIN(60) 

CALL LOGlf XDATA»tDATA) 

IF ( AXISXY{ 0»0«0»0#OtO>0»0»0»0»Q»0) )2»2 

2 CALL EXIT 
END 

t ( 

«L0AD»56»2»4 

RUN 

1 100 1 19 1 3 2 1 7 10 

100 10 10 10 1 1 100 IQOOO 1 1 

Y-AXIS 
X-AXIS 
THIS IS THE PLOT OF Y=X**2 

6 6 26 
II 

•LOGOFF 
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THIS 15 THE PLST QF Y=X^^2 
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•EQUIP»1=PL0T 

•LABELfd)/ SAVE FOR DEAN 

»EQUIP»2=*PLTRTNS 

•EQUIP»3=DATA 

•EQUIPfAs*L0G2 

•FORTRAN»L»X 

PROGRAM TEST2 
C PLOTS 2 1-CYCLE SEMI-LOGSCALE GRAPHS 

COMMON IARRAY(12) »ARRAY(22) »LABELS(63) 

DIMENSION XDATA( 101) fYDATA(lOl) 

READOtl) (XDATA{ I ) tYDATA( I ) ^I^lslOl ) 

1 F0RMAT(2F5«2) 

C EQUIP»3= YOUR FILE PRIOR TO EXECUTION 

DO 100 I=l«12 
100 IARRAY(I)=FFIN(60) 

DO 200 I=l»22 
200 ARRAY{n=FFIN{60) 

READ 3,(LABELS( I ) f I = l»60) 
3 FORMAT {20A4) 
DO 300 I=61»63 
300 LABELS{I)=FFINt60) 

CALL L0G2{XDATA»YDATa) 
f^/^ /.r\r\ T — 1 -im 

400 XDATACI)=YDATA(I ) 
IARRAY(5)=21 
ARRAY(22)=.01 
CALL L0GB(XDATA»YDATA) 
C ENTRY POINT FOR SECOND GRAPH 

IF(AXISXY(0»0»0»0»0»0>0#0»0»0»0»0) )2#2 

2 CALL EXIT 

END 
It 

•L0ADf56f2»4 

RUN 

2 101 I I 11 1 3 2 I 7 10 

100 100 100 5 10 1 100 10 10000 100 40000 200 1 1 

Y-AXIS - UNITS = 10*LABELS 

X-AXIS 

PLOT 1 - X=Y**2» PLOT 2 - X=Y 

26 6 29 
t t 

•LOGOFF 
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ui JS.D 



X-fiXJ5 

PLBT 1 - X=Y*^2, PLQT 2 - X=Y 
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•EQUIP»1=PL0T 

»LABEL»(1)/ SAVE FOR DEAN 

»EQUIP#2a»PLTRTNS 

»EQUIP»3=DATA 

» EQUIP •4-*L063 

I poRTRAN »L tX 

PROGRAM TEST3 

C PLOTS 2 1-CYCLE LOG-LOG GRAPHS 

COMMON IARRAY(12) •ARRAY{6) 9LABELS(63) 
DIMENSION XDATAdOl) »YDATA(101) 
READ(3»1) (XDATAC I) »YDATA( I) •1 = 1*101 ) 

1 FORMAT(2F5.2) 

C EQUIP»3= YOUR FILE PRIOR TO EXECUTION 

DO 100 I=l»12 
100 lARRAYC n=FFIN(60) 

DO 200 I=l»6 
200 ARRAYt n=FFIN(60) 

READ 3»(LABELS{I ) ♦I=l»60) 
3 FORMAT (20A4) 

DO 300 I=61»63 
300 LABELSt I)=FFIN(60) 

CALL L0G3{XDATA»YDATA) 

DO 400 I=l»10i 
400 XDATA(I)*Y0ATA{ I ) 

IARRAY(5)«21 

ARRAY (22) =.01 

CALL LOGCCXDATA.YDATA) 

IF(AXISXY(0»0>0»0»0#0»OiO>0»0»0»0) )2»2 

2 CALL EXIT 
END 

t f 

•L0AD»56«2«4 

RUN 

2 101 1 1 11 1 3 2 1 7 10 

10000 100 40000 200 1 1 

Y-AXIS 

X-AXIS 

PLOT 1 - X=Y**2» PLOT 2 - X=Y 

6 6 29 

f t 

♦LOGOFF 
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PLBT 1 - X=Y*^2. PLBT 2 - X=Y 
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•EQUIP»1=PL0T 

»LABEL»{1)/ SAVE FOR DEAN 

•EQUIP»2=*PLTRTNS 

»EQUIP»3=DATA 

»EQUIP»^*»L0G1 

»FORTRAN»LfX 

PROGRAM TEST4 ...^ . ,r , » 

C PLOTS A 4-CYCLE SEMI-LOGSCALE GRAPH (VALUES GT AND LE 1) 

COMMON lARRAYdZ) fARRAYlZZ) »LABELS(63) 

DIMENSION XDATA(IOO) fYDATA(lOO) 

READ(3»li (XDATA( I ) tYDATAC I ) f 1=1? 100) 

1 FORMAT(2F5.2) 

C EQUIP>3= YOUR FILE PRIOR TO EXECUTION 

DO 100 I=l»12 
100 IARRAY(n=FFIN(60) 

DO 200 I=l»22 
200 ARRAY( n«FFIN(60) 

READ 3»(LABELS< n»I = l»60) 
3 FORMAT(20A4) 

DO 300 1=61*63 
300 LABELS( I)=FFIN(60) 

CALL L061(XDATA»YDATA) 

If- (^Al:bAT\U»U»U»UfW»U»Wfv/»\JTV/»v'w/ I c ^ t. 

2 CALL EXIT 
END 

t I 

'L0AD»56>2»4 

RUN 

1 100 1 14 1 3 2 1 7 10 

1 .01 #01 .1 .1 .1 .01 .0001 1111 

Y-AXIS 
X-AXIS 
THIS IS THE PLOT OF Y=X*M2 

6 6 26 
i I 

•LOGOFF 




J.O 



X-AXJS 



THIS 15 THE PLBT BF Y=X^*2 
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#EDIT 

]FIN,PLT 

3RESEQ 



3LIST 

00001: 

00002: 

00003: 

00004: 

00005: 

00006:C 

00007: 

00008: 

00009s 

00010: 

000 1 1 : 

00012: 

00015: 
00014: 
00015: 
00016: 
00017: 
00018: 
00019: 
00020: 
00021: 



PROGRAM PLT 

COMMON IARRAY(12),ARRAY(22) 

DIMENSION XDATA(10),YDATA(10) 

READ(3,1)(XDATA(I),YDATA(I),I=1,10) 

1 F0RMAT(2F5.2) 

EQUIP, 5= YOUR FILE PRIOR TO EXECUTION 

PRINT 3 

3 FORMATC PLEASE ENTER VALUES FOR INTEGER ARRAY(12)*) 

DO 100 1=1 ,12 
100 IARRAY(I)=IFIX(FFIN(60)) 

4 FORMATr THANK YOU. PLEASE ENTER VALUES FOR F.P. ARRAY(22) 

DO 200 1 = 1 ,22 
200 ARRAY(I)=FFIN(60) 
PRI NT 5 

5 FORMATC THANK YOU. YOUR PLOT IS BEING EXECUTED.') 
CALL MLTIPLT(XDATA,YDATA) 
IF(AXISXY(0,0,0,0,0,0,0»0f0»0»0»0^>2,2 

2 CALL EXIT 
END 

FINIS 



3EQUIP,1=PL0T 

]EQUIP,2=PLTB 

]EQUIP,3=DATA 

3EQUIP,4=*MLTIPLT 

]EQUIP,5=*PLTRTNS 

] 

#LABEL,1/SAVE FOR DEAN 

#L0AD,2,4,5 



RUN 
RUN 
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PLEASE ENTER VALUES FOR INTEGER ARRAY(12) 

<> 1 10 1 9 1 1 2 2 I 7 10 

THANK YOU. PLEASE ENTER VALUES FOR F.P. ARRAY(22) 

<> 10 5 .5 .5 1 I 1 1 1 i 10 5 1 1 

THANK YOU. YOUR PLOT IS BEING EXECUTED. 

LUN LX LY XTIC XL YL 

1 7 10 .500 10.000 5.000 



XLOW 



YLOW 







XORG 



YORG 



YTIC 



NNT 



.500 2 

m^.nr> -p » .T.! . r» iLiiiurtr<n r»ir n rtt iiMMr* TM vnifD TUDCir 1 ARCl C 
ITrC iW inc. NUnDCn Ur *^Ul-urililO XW i v/ujv xmM^t^ ,^ti^^L^<, 

IN THIS ORDER *** Y-AXIS, X-AXIS, AND PLOT LABELS. 

060634 

THANK YOU. ON SEPARATE LINES PLEASE TYPE THE LABELS IN 

THAT SAME ORDER. 

Y-AXIS 

X-AXIS 

TEST PLOT OF *PLTRTNS AND *MLTIPLT 



FORMAT 312 



END OF FORTRAN EXECUTION 

TIME 9.500 SECONDS MFBLKS 21 COST $0.89 




J.C 2.D 



C! )D.D 



TEST PLQT BF ^PLTRTNS AND ^MLTIPLT 
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•iL'.H-U Hi ii Ui ■Li ilJ ct i-i 13 Kt 

■■;'i':niT' 



p:]C:3'-A:] plt 

COriNOW I ARRAY (12), A^r v\ Y ( 22)',lAi:t.L^(. 53 ) 
DIMEi'^'I 0;V XOATA ( 1 ri ) , YJA TA (10) 
DO lAA Irl ,1B 
XDATA(I)rFFIIv(3) 

l:-^D YDATA(I)rFFIi:(3) 

3 FORMATC PLFA-^l FnTFJ; WALIIF": FOR IMTlGFR ARRAY(12)') 
DO 200 1=1,12 

EG3 I^ARRAY(I)=FFrJ(S0) 

p.rn^T 4 

4 FOPMATC THAIvK YOII, PLEAIZ FR'TER VALUF^ FOR F .? . ARRAY(22)') 
RO ivR) 1 = 1 ,2P 

5::!.3 ARRAY(I):FFIf.(R- } 
PRI^!T S 

6 FORf^ATC* ;-iOW TYPE 111 TRl Y-AXin LABFL,') 

7 F0R;iAT(2jA4) 
PRIRYG 

B FORilATC/' the: X-^iXIR LAFSfX'.') 
RlAO 7,(LABEL-(I),I=21,43) 
FRI !JT 9 
9 FOR-IATC/* TiXr PROT LABEL*') 
RRV) 7,(LARRL^'(I) ,I = -M , .R" ) 
RRIRT IR 
r: FRR^'AK/* FIijALLY, TYRR IR Ti:R [RJRRRR OF rR:ARA(XrRRR ARD' 
i' ':RACR^V' TR THR AROVR 3 LABRL^- lU TIRaT RARE ORDER.') 
RO 4 ,'R I = C i f G5 
4' A LA"RL"^(I)rFFi;;(RR) 
PRIPT 5 

5 FOARATC T::.\RR YOR, YORR plot IR BEIRG RXRCUTRR . V//) 
PALL LTT-'FT(-')AIA jYRATA) 

RALL AXr^R VC } , ' , f' f , 9 ' i'-' 9'^' 9'' 9^'-^ 
CALL EXIT 
t-i^ R 

FIRI'^' 



] 

PLC ARE F 



RFRLIR"* R RO'^T $^.R5 
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L.I i^\jL'.jC4. iH wJ "*U Li 'hj« ^:A wji 

#lQUIP,1=PL0T 
#EQUIP,2=^fciiLTIPLT 
>?[i:GUIP,3 = DATA 
/;^EQUIP,4 = ^!^PLTHTM'^ 
./EQUIPj5=PLTB 
#LAD£L,1/ ^AVE FOR DEAN 

//LOAD, 2, 4, 5 



PLEASE ZUT2U VALUE'' FOR I::TE3E:^ A!cRAY(12) 

<> 1 10 1 9 fc ^'^ 3 

<> 4 1 7 10 

THAfJK YOU. PLEASE ENTER VALUED FOR F,P. A.RRAY(22) 

<> IPi 10 ^ ^25 .25 

<> ^^ K 1 .5 1 .5 

<> 1 1 19 10 1 i 

MOW TYPE i;] THE Y-hXI~ LABEL, 

Y-AXr"" 

THE X-AXr-- LAPEL. 
X-AXn 

THE PLOT LABEL. 
TELETYPE TE-^T PLOT 

FINALLY, TYPE I^: THE .MUMDER OF CHARACTERf^ AND '^PACEf^ 

IN THE ABOVE 3 LABELS 111 THAT nAHE ORDER. 

<> 6 6 IP 

THANK YOU. YOUR PLOT I'^ BEING EXECUTED. 



LUi] 



LX 



XORG 



LY 



10 
YORG 



XTIC 

.250 



YTIC 
.250 



XL 

10.000 

NNT 



YL 

10.000 



XLOW 



YLOVJ 



EMD OF FORTRAN EXECUTION 



^LOGOFF 

Tl-]Z 7.942 '^ECOHD^ MFBLK^ 14 CO'^T SO. 70 



a 

1 . (ir-- 
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J .0 



2.0 3.0 



4.0 



.0 6.0 ?.0 8.0 9.0 JO.O 



X-AXIS 



TELETYPE TEST PLBT 



